home *** CD-ROM | disk | FTP | other *** search
/ ETO Development Tools 4 / ETO Development Tools 4.iso / Tools - Objects / Virtual User 1.0 / Example Scripts / CloseAllWindows.vu next >
Text File  |  1991-01-25  |  490b  |  25 lines
  1. #
  2. #    File:        close_all_windows.vu
  3. #
  4. #    Contains:    This script tries to close all windows that are open.
  5. #
  6. #    Written by:    P Nagarajan
  7. #
  8. #    Copyright:    © 1989 by Apple Computer, Inc., all rights reserved.
  9. #
  10. #    Change History:
  11. #
  12. #         4/3/89       naga        creation 
  13. #
  14. #    To Do:
  15. #
  16.  
  17. all_windows := collect [window];
  18. total_windows := card(all_windows);
  19. for i:= 1 to total_windows do
  20. begin
  21.     if match[button t: 'OK' w:[window o:1]]! 
  22.         select [button t: 'OK' w:[window o:1]]!;
  23.     else
  24.         close [window o:1];
  25. end; #for